home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 2: CDPD 1
/
Almathera Ten on Ten - Disc 2: CDPD 1.iso
/
pd
/
276-300
/
285
/
liner
/
source
/
yafr
/
yafr.c
< prev
next >
Wrap
C/C++ Source or Header
|
1995-03-14
|
14KB
|
460 lines
/*- - - - - - - - - - YAFR - Yet Another File Requester - - - - - - - - -*/
/*- - - - - - - - - - - - - - Version 1.10 - - - - - - - - - - - - - - -*/
/*YAFR V1.1 Copyright ©1989 by Dave Schreiber. All rights reserved. */
/*YAFR may be freely distributed, but may not be sold. Exceptions to */
/*are reasonable copying, media, and shipping fees. This copyright */
/*message must be included (including when YAFR is used as a part of */
/*another program). */
/*Compiled under Lattice C V5.02 */
/*Command line: 1> lc -cw -j30 yafr */
/*Generates YAFR.o which is linked into the host program */
/*You must assign YAFR: to the directory where the YAFR source is stored */
/*If you have any comments, suggestions, etc. I can be reached at: */
/*Dave Schreiber */
/*1234 Collins Lane */
/*San Jose, CA 95129-4208 */
/*Usenet: davids@ucscb.ucsc.edu (during the school year) */
#include <YAFR:yafrHead.h>
/*^^^^system includes, structure definitions, etc.*/
#define CRNT header.current->fib
/*Parameters are: fn-string for filename (33 characters) */
/*dn-string for directory name (150 characters) */
/*en-string for filename extension (.c, .pic, etc. 18 characters) */
/*cn-string for combined directory and filename (183 characters) */
/*(NULL if you don't want the combined filename) */
/*X,Y-YAFR's window's X,Y location (relative to the screen */
/*wn-text for YAFR's window's title bar */
/*scr-Pointer to screen that window should appear on (NULL for */
/*Workbench) filepen-Pen color that filenames should be displayed in */
/*dirpen-Pen color that directory names should be displayed in */
/*DisableInfo-Boolean; TRUE-files ending in .info aren't displayed */
/* FALSE-.info files are displayed */
/*Version 1.1, completed October 30, 1989*/
/*Directory and filename string gadgets now auto-activate and appropriate*/
/*times. A bug that caused an incorrect filename to be returned when the*/
/*user pressed CANCEL has been fixed */
GetFilename(fn,dn,en,cn,X,Y,wn,scr,filepen,dirpen,DisableInfo)
char *fn,*dn,*en,*cn,*wn;
USHORT X,Y,filepen,dirpen;
BYTE DisableInfo;
struct Screen *scr;
{
int status=GN_NEWDIR;
struct FileLock *DirLock;
if(DisableInfo)
yf_Info.Flags|=SELECTED;
else
yf_Info.Flags=GADGHIMAGE|GADGIMAGE;
yafr_e_FilenamePenColor = filepen;
yafr_e_DirnamePenColor = dirpen;
DirLock=(struct FileLock *)Lock(dn,ACCESS_READ);
strcpy(yf_DirNameSIBuff,dn);
strcpy(yf_ExtNameSIBuff,en);
strcpy(yf_filenameSIBuff,fn);
NewFNWindow.LeftEdge=X;
NewFNWindow.TopEdge=Y;
NewFNWindow.Title=(char *)wn;
NewFNWindow.Screen=(struct Screen *) scr;
NewFNWindow.Type= (scr) ? CUSTOMSCREEN : WBENCHSCREEN;
if((FNWindow=(struct Window *)OpenWindow(&NewFNWindow))==NULL)
{
UnLock(DirLock);
return(FALSE);
}
SetWindowTitles(FNWindow,-1,"YAFR V1.10 ©1989 by Dave Schreiber");
SetAPen(FNWindow->RPort,1);
Move(FNWindow->RPort,6,19);
Text(FNWindow->RPort,"Directory",9);
Move(FNWindow->RPort,6,154);
Text(FNWindow->RPort,"Extension",9);
Move(FNWindow->RPort,6,165);
Text(FNWindow->RPort,"Filename",8);
ActivateGadget(&yf_DirName,FNWindow,NULL);
while((status = yf_GetName(DirLock)) == GN_NEWDIR)
{
UnLock(DirLock);
DirLock=(struct FileLock *)Lock(yf_DirNameSIBuff,ACCESS_READ);
ActivateGadget(&yf_filename,FNWindow,NULL);
}
UnLock(DirLock);
if(status)
{
strcpy(fn,yf_filenameSIBuff);
strcpy(dn,yf_DirNameSIBuff);
strcpy(en,yf_ExtNameSIBuff);
if(cn)
{
strcpy(cn,yf_DirNameSIBuff);
if( (dn[strlen(dn)-1] != ':') && strlen(dn) )
strcat(cn,"/");
strcat(cn,yf_filenameSIBuff);
}
}
CloseWindow(FNWindow);
return(status);
}
yf_GetName(Lock)
struct FileLock *Lock;
{
struct fibHeader header;
int status3,status2,status;
USHORT FNNumber=0;
header.first=header.directory=NULL;
if(yf_GetFib(&header)==FALSE)
return(FALSE);
yf_SliderSInfo.VertPot=0;
yf_UpdateSlider(1,&yf_SliderSInfo,&yf_Slider);
yf_ClearFileBox();
if(!yf_ispipedevice(yf_DirNameSIBuff)) /*Check for pipe: device*/
if(Lock!=NULL)
{
Examine(Lock,&(CRNT));
if(yf_GetFib(&header)==FALSE) /*Get next node*/
return(NULL);
while((status3=ExNext(Lock,&(CRNT))))
{
if((status2=((yf_CheckExt(CRNT.fib_FileName,yf_ExtNameSIBuff) ||
CRNT.fib_DirEntryType > 0) &&
yf_CheckInfo(CRNT.fib_FileName)) ))
{
if(FNNumber<10)
yf_PrintFileName(&(CRNT),Rp,XBorder,YBorder+(10*FNNumber++));
else
yf_UpdateSlider(++FNNumber,&yf_SliderSInfo,&yf_Slider);
}
while((status=yf_CheckIntuiMessages(FNNumber,&header))!=GN_DONE)
{
if(status==GN_PARENT)
{
yf_Parentize(yf_DirNameSIBuff);
yf_RefreshGadget(&yf_DirName,FNWindow,NULL);
yf_FreeFuncMemory(header.directory);
return(GN_NEWDIR);
}
if(status < GN_PARENT)
{
yf_FreeFuncMemory(header.directory);
return(status); /*For OK,NEWDIR, & CANCEL*/
}
}
if(status2)
if(yf_GetFib(&header)==FALSE)
return(NULL);
}
header.current->prev->next=NULL;
if(header.directory->next == header.current) /*If no files*/
header.directory->next=header.first=header.last=
header.top=NULL; /*NULL certain pointers*/
FreeMem(header.current,sizeof(struct fibNode));
}
for(;;) /*FOREVER*/
{
Wait(1<<FNWindow->UserPort->mp_SigBit);
while((status=yf_CheckIntuiMessages(FNNumber,&header))!=GN_DONE)
{
if(status==GN_PARENT)
if(yf_Parentize(yf_DirNameSIBuff))
{
yf_RefreshGadget(&yf_DirName,FNWindow,NULL);
yf_FreeFuncMemory(header.directory);
return(GN_NEWDIR);
}
if(status < GN_PARENT)
{
yf_FreeFuncMemory(header.directory);
return(status); /*For OK,NEWDIR, & CANCEL*/
}
}
}
}
yf_CheckInfo(name) /*Check to see if .info's should be printed*/
char *name;
{
if(!(yf_Info.Flags & SELECTED))
return(TRUE);
return(!(strcmp(&name[strlen(name)-5],".info")==0));
}
yf_ClearFileBox()
{
SetAPen(Rp,0);
RectFill(Rp,XBorder,YBorder-6,(25*8)+XBorder,YBorder+(100)-4);
SetAPen(Rp,1);
}
yf_Parentize(str)
char *str;
{
int c;
if(str[strlen(str)-1]==':')
return(FALSE);
for(c=strlen(str)-1;c >= 0;c--)
if(str[c]=='/')
{
str[c]=NULL;
c=0;
}
else
if(str[c]==':')
{
str[c+1]=NULL;
c=0;
}
return(TRUE);
}
yf_UpdateSlider(Amt,Info,Gadgt)
USHORT Amt;
struct PropInfo *Info;
struct Gadget *Gadgt;
{
Info->VertBody=((0xFFFF*10)/Amt);
RefreshGadgets(Gadgt,FNWindow,NULL);
}
yf_CheckIntuiMessages(Max,header)
USHORT Max;
struct fibHeader *header;
{
struct fibNode *cur;
UBYTE c,line;
struct IntuiMessage *mesg;
struct Gadget *InUse;
ULONG Class;
USHORT Code;
SHORT X,Y;
while((mesg=(struct IntuiMessage *)GetMsg(FNWindow->UserPort))!=NULL)
{
InUse=(struct Gadget *)mesg->IAddress;
X=mesg->MouseX;
Y=mesg->MouseY;
Class=mesg->Class;
Code=mesg->Code;
ReplyMsg(mesg);
switch(Class)
{
case MOUSEMOVE:
if(Max > 10)
yf_UpdateList(yf_SliderSInfo.VertPot,Max,header);
break;
case GADGETUP:
if(InUse->GadgetID <= 10)
{
strcpy(yf_DirNameSIBuff,InUse->GadgetText->IText);
yf_RefreshGadget(&yf_DirName,FNWindow,NULL);
return(GN_NEWDIR);
}
switch(InUse->GadgetID)
{
case 14:
return(GN_CANCEL);
case 12:
case 13:
return(GN_OK);
case 15:
return(GN_PARENT);
case 11:
case 18:
return(GN_NEWDIR);
}
return(GN_RIEN); /*Nothing important*/
break;
case GADGETDOWN:
if(InUse->GadgetID == 18)
return(GN_NEWDIR);
if((strcmp(yf_DirNameSIBuff,"PIPE:")!=0) && /*Don't try & get files*/
(strcmp(yf_DirNameSIBuff,"pipe:")!=0) && /*from PIPE: (most combos*/
(strcmp(yf_DirNameSIBuff,"Pipe:") != 0)) /*of upper & lower case)*/
{
line=(Y-YBorder+7)/10; /*Get line clicked on*/
for(c=0,cur=(struct fibNode *)header->top;c!=line && cur!=NULL;c++)
cur=(struct fibNode *)cur->next;
if(cur != NULL)
if(cur->fib.fib_DirEntryType > 0)
{
if(yf_DirNameSIBuff[strlen(yf_DirNameSIBuff)-1] != ':')
strcat(yf_DirNameSIBuff,"/");
strcat(yf_DirNameSIBuff,cur->fib.fib_FileName);
yf_RefreshGadget(&yf_DirName,FNWindow,NULL);
return(GN_NEWDIR);
}
else /*Filename clicked upon*/
{
strcpy(yf_filenameSIBuff,cur->fib.fib_FileName);
yf_RefreshGadget(&yf_filename,FNWindow,NULL);
}
}
}
}
return(GN_DONE);
}
yf_UpdateList(Pos,Num,header)
USHORT Pos;
USHORT Num;
struct fibHeader *header;
{
static USHORT LastFirstItem=30000;
ULONG FirstItem;
FirstItem=((Pos)*(Num-10)) >> 16 ;
if( FirstItem != LastFirstItem)
yf_RewriteList(FirstItem,header);
LastFirstItem=FirstItem;
}
yf_RewriteList(First,header)
USHORT First;
struct fibHeader *header;
{
register struct fibNode *node;
register USHORT c,Y;
if(First)
for(c=0,node=(struct fibNode *)header->first;c <= First;c++)
node=(struct fibNode *)node->next;
else
node=(struct fibNode *)header->first;
header->top=(struct fibNode *)node;
for(c=0,Y=YBorder;(c < 10) && (node!=NULL);
c++,Y+=10,node=(struct fibNode *)node->next)
yf_PrintFileName(&(node->fib),Rp,XBorder,Y);
}
yf_CheckExt(name,ext)
char *name,*ext;
{
if(strlen(name) >= strlen(ext))
if(strcmp(&name[strlen(name)-strlen(ext)],ext)==0)
return(TRUE);
return(FALSE);
}
yf_GetFib(header)
struct fibHeader *header;
{
header->last=(struct fibNode *)header->current;
if((header->current=(struct fibNode *)
AllocMem(sizeof(struct fibNode),MEMF_PUBLIC|MEMF_CLEAR))==NULL)
{
yf_FreeFuncMemory(header->current);
return(FALSE);
}
if(header->directory==NULL)
header->directory=(struct fibNode *)header->current;
else
{
if(header->first==NULL)
{
header->directory->next=header->first=header->last=header->top=
(struct fibNode *)header->current;
yf_CopyFIB(&(header->directory->fib),&(header->current->fib));
}
else
{
yf_CopyFIB(&(header->last->fib),&(header->current->fib));
header->last->next=(struct fibNode *)header->current;
header->current->prev=(struct fibNode *)header->last;
}
}
return(TRUE);
}
yf_CopyFIB(from,to)
struct FileInfoBlock *from,*to;
{
to->fib_DiskKey=from->fib_DiskKey;
to->fib_DirEntryType=from->fib_DirEntryType;
to->fib_Protection=from->fib_Protection;
to->fib_EntryType=from->fib_EntryType;
to->fib_Size=from->fib_Size;
to->fib_NumBlocks=from->fib_NumBlocks;
strcpy(to->fib_FileName,from->fib_FileName);
strcpy(to->fib_Comment,from->fib_Comment);
to->fib_Date.ds_Days=from->fib_Date.ds_Days;
to->fib_Date.ds_Minute=from->fib_Date.ds_Minute;
to->fib_Date.ds_Tick=from->fib_Date.ds_Tick;
return(TRUE);
}
yf_PrintFileName(fib,RPrt,X,Y)
struct FileInfoBlock *fib;
struct RPort *RPrt;
USHORT X,Y;
{
UWORD len;
if(fib->fib_DirEntryType > 0)
SetAPen(RPrt,yafr_e_DirnamePenColor);
else
SetAPen(RPrt,yafr_e_FilenamePenColor);
Move(RPrt,X,Y);
Text(RPrt," ",25);
Move(RPrt,X,Y);
len = (strlen(fib->fib_FileName)<=25) ? strlen(fib->fib_FileName) : 25;
Text(RPrt,fib->fib_FileName,len);
if(fib->fib_DirEntryType > 0)
Text(RPrt," (dir)",7);
}
yf_RefreshGadget(Gadg,Wdw,Req)
struct Gadget *Gadg;
struct Window *Wdw;
struct Req *Req;
{
struct Gadget *next;
next=(struct Gadget *)Gadg->NextGadget;
Gadg->NextGadget=NULL;
RefreshGadgets(Gadg,Wdw,Req);
Gadg->NextGadget=(struct Gadget *)next;
return(TRUE);
}
yf_FreeFuncMemory(first) /*Free a fib list*/
register struct fibNode *first;
{
register struct fibNode *next,*current;
next=(struct fibNode *)first->next;
FreeMem(first,sizeof(struct fibNode));
while((current=(struct fibNode *)next)!=NULL)
{
next=(struct fibNode *)current->next;
FreeMem(current,sizeof(struct fibNode));
}
}
yf_ispipedevice(device) /*Checks to see if the device is the PIPE:*/
char *device;
{
char temp[6];
int c;
for(c=0;c<5;c++) /*Convert weird capitalization (pIPe:) to pipe:*/
temp[c]=tolower(device[c]); /*So as to make it easy to check*/
temp[5]=NULL;
if(strcmp(device,"pipe:")==0)
return(TRUE);
else
return(FALSE);
}